perm filename EXP.INS[MUS,LCS]1 blob
sn#351038 filedate 1978-04-24 generic text, type T, neo UTF8
ARRAY F3
(512);
PRINT "F3 -";
SEG (F3 );
0.0000 520.0000
1.0000 0.9862 0.9726 0.9592 0.9460 0.9329 0.9200 0.9073
0.8948 0.8825 0.8703 0.8583 0.8465 0.8348 0.8233 0.8119
0.8007 0.7897 0.7788 0.7680 0.7574 0.7470 0.7367 0.7265
0.7165 0.7066 0.6969 0.6872 0.6778 0.6684 0.6592 0.6501
0.6411 0.6323 0.6236 0.6150 0.6065 0.5981 0.5899 0.5817
0.5737 0.5658 0.5580 0.5503 0.5427 0.5352 0.5278 0.5205
0.5133 0.5063 0.4993 0.4924 0.4856 0.4789 0.4723 0.4658
0.4593 0.4530 0.4467 0.4406 0.4345 0.4285 0.4226 0.4168
0.4110 0.4053 0.3997 0.3942 0.3888 0.3834 0.3781 0.3729
0.3678 0.3627 0.3577 0.3527 0.3479 0.3431 0.3383 0.3337
0.3291 0.3245 0.3200 0.3156 0.3113 0.3070 0.3027 0.2986
0.2944 0.2904 0.2864 0.2824 0.2785 0.2747 0.2709 0.2671
0.2634 0.2598 0.2562 0.2527 0.2492 0.2457 0.2424 0.2390
0.2357 0.2325 0.2292 0.2261 0.2230 0.2199 0.2168 0.2138
0.2109 0.2080 0.2051 0.2023 0.1995 0.1967 0.1940 0.1913
0.1887 0.1861 0.1835 0.1810 0.1785 0.1760 0.1736 0.1712
0.1688 0.1665 0.1642 0.1619 0.1597 0.1575 0.1553 0.1531
0.1510 0.1489 0.1469 0.1448 0.1428 0.1409 0.1389 0.1370
0.1351 0.1332 0.1314 0.1296 0.1278 0.1260 0.1243 0.1226
0.1209 0.1192 0.1175 0.1159 0.1143 0.1127 0.1112 0.1096
0.1081 0.1066 0.1051 0.1037 0.1022 0.1008 0.0994 0.0981
0.0967 0.0954 0.0940 0.0927 0.0915 0.0902 0.0889 0.0877
0.0865 0.0853 0.0841 0.0829 0.0818 0.0807 0.0795 0.0784
0.0774 0.0763 0.0752 0.0742 0.0731 0.0721 0.0711 0.0701
0.0692 0.0682 0.0673 0.0663 0.0654 0.0645 0.0636 0.0627
0.0619 0.0610 0.0601 0.0593 0.0585 0.0577 0.0569 0.0561
0.0553 0.0545 0.0538 0.0530 0.0523 0.0516 0.0508 0.0501
0.0494 0.0487 0.0481 0.0474 0.0467 0.0461 0.0454 0.0448
0.0442 0.0436 0.0430 0.0424 0.0418 0.0412 0.0406 0.0400
0.0395 0.0389 0.0384 0.0379 0.0373 0.0368 0.0363 0.0358
0.0353 0.0348 0.0343 0.0338 0.0334 0.0329 0.0324 0.0320
0.0315 0.0311 0.0306 0.0302 0.0298 0.0294 0.0290 0.0286
0.0282 0.0278 0.0274 0.0270 0.0266 0.0262 0.0259 0.0255
0.0251 0.0248 0.0244 0.0241 0.0237 0.0234 0.0231 0.0228
0.0224 0.0221 0.0218 0.0215 0.0212 0.0209 0.0206 0.0203
0.0200 0.0197 0.0195 0.0192 0.0189 0.0186 0.0184 0.0181
0.0178 0.0176 0.0173 0.0171 0.0169 0.0166 0.0164 0.0161
0.0159 0.0157 0.0155 0.0152 0.0150 0.0148 0.0146 0.0144
0.0142 0.0140 0.0138 0.0136 0.0134 0.0132 0.0130 0.0128
0.0126 0.0124 0.0123 0.0121 0.0119 0.0117 0.0116 0.0114
0.0112 0.0111 0.0109 0.0107 0.0106 0.0104 0.0103 0.0101
0.0100 0.0098 0.0097 0.0095 0.0094 0.0093 0.0091 0.0090
0.0089 0.0087 0.0086 0.0085 0.0083 0.0082 0.0081 0.0080
0.0079 0.0077 0.0076 0.0075 0.0074 0.0073 0.0072 0.0071
0.0070 0.0069 0.0068 0.0066 0.0065 0.0064 0.0063 0.0063
0.0062 0.0061 0.0060 0.0059 0.0058 0.0057 0.0056 0.0055
0.0054 0.0053 0.0053 0.0052 0.0051 0.0050 0.0049 0.0049
0.0048 0.0047 0.0046 0.0046 0.0045 0.0044 0.0043 0.0043
0.0042 0.0041 0.0041 0.0040 0.0039 0.0039 0.0038 0.0037
0.0037 0.0036 0.0036 0.0035 0.0034 0.0034 0.0033 0.0033
0.0032 0.0032 0.0031 0.0031 0.0030 0.0030 0.0029 0.0028
0.0028 0.0027 0.0027 0.0027 0.0026 0.0026 0.0025 0.0025
0.0024 0.0024 0.0023 0.0023 0.0022 0.0022 0.0022 0.0021
0.0021 0.0020 0.0020 0.0020 0.0019 0.0019 0.0019 0.0018
0.0018 0.0017 0.0017 0.0017 0.0016 0.0016 0.0016 0.0015
0.0015 0.0015 0.0014 0.0014 0.0014 0.0013 0.0013 0.0013
0.0013 0.0012 0.0012 0.0012 0.0011 0.0011 0.0011 0.0011
0.0010 0.0010 0.0010 0.0010 0.0009 0.0009 0.0009 0.0009
0.0008 0.0008 0.0008 0.0008 0.0007 0.0007 0.0007 0.0007
0.0007 0.0006 0.0006 0.0006 0.0006 0.0006 0.0005 0.0005
0.0005 0.0005 0.0005 0.0004 0.0004 0.0004 0.0004 0.0004
0.0003 0.0003 0.0003 0.0003 0.0003 0.0003 0.0002 0.0002
0.0002 0.0002 0.0002 0.0002 0.0002 0.0001 0.0001 0.0001
0.0001 0.0001 0.0001 0.0001 0.0000 0.0000 0.0000 0.0000
INSTRUMENT TOOTA;
OSCIL[15](P4,15*MAG/P2,P5);
COSCIL(U1,P3*MAG,P6);< P6 IS TONE COLOR FOR 'TOOTA'
OUTA←OUTA+U2;
END;
INSTRUMENT TOOTB;
OSCIL[15](P4,15*MAG/P2,P5);
COSCIL(U1,P3*MAG,P6);< P6 IS TONE COLOR FOR 'TOOTA'
OUTA←OUTA+U2;
END;
INSTRUMENT TOOTC;
OSCIL[15](P4,15*MAG/P2,P5);
COSCIL(U1,P3*MAG,P6);< P6 IS TONE COLOR FOR 'TOOTA'
OUTA←OUTA+U2;
END;
INSTRUMENT TOOTD;
OSCIL[15](P4,15*MAG/P2,P5);
COSCIL(U1,P3*MAG,P6);< P6 IS TONE COLOR FOR 'TOOTA'
OUTA←OUTA+U2;
END;
INSTRUMENT TOOTE;
OSCIL[15](P4,15*MAG/P2,P5);
COSCIL(U1,P3*MAG,P6);< P6 IS TONE COLOR FOR 'TOOTA'
OUTA←OUTA+U2;
END;
INSTRUMENT TOOTF;
OSCIL[15](P4,15*MAG/P2,P5);
COSCIL(U1,P3*MAG,P6);< P6 IS TONE COLOR FOR 'TOOTA'
OUTA←OUTA+U2;
END;
INSTRUMENT TOOTG;
OSCIL[15](P4,15*MAG/P2,P5);
COSCIL(U1,P3*MAG,P6);< P6 IS TONE COLOR FOR 'TOOTA'
OUTA←OUTA+U2;
END;
INSTRUMENT TOOTH;
OSCIL[15](P4,15*MAG/P2,P5);
COSCIL(U1,P3*MAG,P6);< P6 IS TONE COLOR FOR 'TOOTA'
OUTA←OUTA+U2;
END;
INSTRUMENT TOOTI;
OSCIL[15](P4,15*MAG/P2,P5);
COSCIL(U1,P3*MAG,P6);< P6 IS TONE COLOR FOR 'TOOTA'
OUTA←OUTA+U2;
END;
INSTRUMENT TOOTJ;
OSCIL[15](P4,15*MAG/P2,P5);
COSCIL(U1,P3*MAG,P6);< P6 IS TONE COLOR FOR 'TOOTA'
OUTA←OUTA+U2;
END;
INSTRUMENT TOOTK;
OSCIL[15](P4,15*MAG/P2,P5);
COSCIL(U1,P3*MAG,P6);< P6 IS TONE COLOR FOR 'TOOTA'
OUTA←OUTA+U2;
END;
INSTRUMENT TOOTL;
OSCIL[15](P4,15*MAG/P2,P5);
COSCIL(U1,P3*MAG,P6);< P6 IS TONE COLOR FOR 'TOOTA'
OUTA←OUTA+U2;
END;
INSTRUMENT TOOTM;
OSCIL[15](P4,15*MAG/P2,P5);
COSCIL(U1,P3*MAG,P6);< P6 IS TONE COLOR FOR 'TOOTA'
OUTA←OUTA+U2;
END;
INSTRUMENT TOOTN;
OSCIL[15](P4,15*MAG/P2,P5);
COSCIL(U1,P3*MAG,P6);< P6 IS TONE COLOR FOR 'TOOTA'
OUTA←OUTA+U2;
END;
INSTRUMENT TOOTO;
OSCIL[15](P4,15*MAG/P2,P5);
COSCIL(U1,P3*MAG,P6);< P6 IS TONE COLOR FOR 'TOOTA'
OUTA←OUTA+U2;
END;
INSTRUMENT TOOTP;
OSCIL[15](P4,15*MAG/P2,P5);
COSCIL(U1,P3*MAG,P6);< P6 IS TONE COLOR FOR 'TOOTA'
OUTA←OUTA+U2;
END;
INSTRUMENT TOOTQ;
OSCIL[15](P4,15*MAG/P2,P5);
COSCIL(U1,P3*MAG,P6);< P6 IS TONE COLOR FOR 'TOOTA'
OUTA←OUTA+U2;
END;
INSTRUMENT TOOTR;
OSCIL[15](P4,15*MAG/P2,P5);
COSCIL(U1,P3*MAG,P6);< P6 IS TONE COLOR FOR 'TOOTA'
OUTA←OUTA+U2;
END;
INSTRUMENT TOOTS;
OSCIL[15](P4,15*MAG/P2,P5);
COSCIL(U1,P3*MAG,P6);< P6 IS TONE COLOR FOR 'TOOTA'
OUTA←OUTA+U2;
END;
INSTRUMENT TOOTT;
OSCIL[15](P4,15*MAG/P2,P5);
COSCIL(U1,P3*MAG,P6);< P6 IS TONE COLOR FOR 'TOOTA'
OUTA←OUTA+U2;
END;
INSTRUMENT TOOTU;
OSCIL[15](P4,15*MAG/P2,P5);
COSCIL(U1,P3*MAG,P6);< P6 IS TONE COLOR FOR 'TOOTA'
OUTA←OUTA+U2;
END;
INSTRUMENT CLARA;
OSCIL[15](P4,15*MAG/P2,P5);
COSCIL(U1,P3*MAG,P6);
OUTA←OUTA+U2;
END;
INSTRUMENT CLARB;
OSCIL[15](P4,15*MAG/P2,P5);
COSCIL(U1,P3*MAG,P6);
OUTA←OUTA+U2;
END;
INSTRUMENT CLARC;
OSCIL[15](P4,15*MAG/P2,P5);
COSCIL(U1,P3*MAG,P6);
OUTA←OUTA+U2;
END;
INSTRUMENT CLARD;
OSCIL[15](P4,15*MAG/P2,P5);
COSCIL(U1,P3*MAG,P6);
OUTA←OUTA+U2;
END;
INSTRUMENT CLARE;
OSCIL[15](P4,15*MAG/P2,P5);
COSCIL(U1,P3*MAG,P6);
OUTA←OUTA+U2;
END;
INSTRUMENT CLARF;
OSCIL[15](P4,15*MAG/P2,P5);
COSCIL(U1,P3*MAG,P6);
OUTA←OUTA+U2;
END;
INSTRUMENT CLARG;
OSCIL[15](P4,15*MAG/P2,P5);
COSCIL(U1,P3*MAG,P6);
OUTA←OUTA+U2;
END;
INSTRUMENT CLARH;
OSCIL[15](P4,15*MAG/P2,P5);
COSCIL(U1,P3*MAG,P6);
OUTA←OUTA+U2;
END;
INSTRUMENT CLARI;
OSCIL[15](P4,15*MAG/P2,P5);
COSCIL(U1,P3*MAG,P6);
OUTA←OUTA+U2;
END;
INSTRUMENT BRITA;
OSCIL[15](P4,15*MAG/P2,P5);
COSCIL(U1,P3*MAG,P6);
OUTA←OUTA+U2;
END;
INSTRUMENT BRITB;
OSCIL[15](P4,15*MAG/P2,P5);
COSCIL(U1,P3*MAG,P6);
OUTA←OUTA+U2;
END;
INSTRUMENT BRITC;
OSCIL[15](P4,15*MAG/P2,P5);
COSCIL(U1,P3*MAG,P6);
OUTA←OUTA+U2;
END;
INSTRUMENT BRITD;
OSCIL[15](P4,15*MAG/P2,P5);
COSCIL(U1,P3*MAG,P6);
OUTA←OUTA+U2;
END;
INSTRUMENT BRITE;
OSCIL[15](P4,15*MAG/P2,P5);
COSCIL(U1,P3*MAG,P6);
OUTA←OUTA+U2;
END;
INSTRUMENT BRITF;
OSCIL[15](P4,15*MAG/P2,P5);
COSCIL(U1,P3*MAG,P6);
OUTA←OUTA+U2;
END;
INSTRUMENT BRITG;
OSCIL[15](P4,15*MAG/P2,P5);
COSCIL(U1,P3*MAG,P6);
OUTA←OUTA+U2;
END;
INSTRUMENT BRITH;
OSCIL[15](P4,15*MAG/P2,P5);
COSCIL(U1,P3*MAG,P6);
OUTA←OUTA+U2;
END;